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This module contains the routines to initialize the runtime system 
for putting elements to a pll stream file. 


author: c. spitz 28-nov-79 
modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Chip Nylander 08-August-1983 


Initialize the parent pointer with FP when stream block 
allocated. 
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PLISPUTFILE bs a i -1984 AX/VMS Macro V04-00 Page 1. 
5 tO08 6-SEP 71982 04: $3: PLIRTL.SRCIJPLIPUTFIL.MAR; 1 ° (1) | 
0000S 1 title pli$putfile 
00 g ‘ident 71-003/ ; Edit CGN1003 | 
0 3 Edit wWHM1002 
000 § | 
0000 § A peaner ae perpen omen 
3* | 
: 0000 8 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * | 
0000 9 ;* DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. * 
44 ? = ALL RIGHTS RESERVED. * 
. ® 
4 ¢ 3* THIS SOFTWARE 44 FURNISHED nee A LICENSE AND MAY BE USED AND og lay * 
00 :* ONLY IN ACCORD ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 4 ;* INCLUSION tH HE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 5 ;* COPIES OHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 6 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
500 4 3* TRANSFERRED. * | 
7* ® 
0000 9 ;* THE erie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
0000 0 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9000 1 * CORPORATION. . 
: & 
0000 : 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44 : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
° * | 
0000 26 :* . | 
0000 7 ERR RRR AREA EEA AAA ARETE AREA AAA AEA EE AREA AEA AAA AAET KARATE ATE 
0000 S 3 
0000 9 
0000 0 ;++ 
1 facility: 
VAX/VMS PL1 runtime Library | 
| 
5 ; abstract: 
6 
7 
8 
9 
0 
4 
5 
6 
7 
8 
9 
0 
4 
5 
6 
7 
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PLISPUTFILE 16-SEP-1984 02:23:50 VAX/VMS Macro V04-00 Page | 
+008 paetet 9 oF: 9:2 PLIRTL.SRCIJPLIPUTFIL.MAR;1 . dy 
3; external definitions 
$Sdeffcb idefine file control block 
$defdat sdefine operand node data types 
$defstr define stream block offsets 
$defputopt sdefine put options block 
$Srabdef sdefine rms rab offsets 
$fabdef sdefine rms fab offsets 
Srmsdef sdefine rms error codes 
; | 
3; local data 
rtshare ssharable 


+ 
pli$putfile_ré 
; functional description: 


; This routine initializes the runtime system to put elements to a stream 
; file. The pyntes of the PUT LIST statement is: 
PUT CFILE(fileref)] CSKIP(expr)] CL ine Conpr)) CPAGE] . 
LIST(out! C,out2C,out3C...JJJ) COPTIONS(option_list)]; 
where: out is an expression or [DO iter_var = 
expr TO expr [BY exprJ] 
and option list is a List of: 
CANCEL_CONTROL_O 


The syntax of the PUT EDIT statement is the same except that LIST is 
replaced by EDIT and a format List follows the element List. 


COOCCCOCOOCOOCSOOCOOOOOOCOOCOOOOSOOOOOOOOOoOOoOo 
SOSCSCSCSSOSCSOSOSOOSOOSOOOOCSOOOOCOOSCOOOOOOOOOSoOo 


SOOOCCCOCSCOCOSCOOCOOSOSOOOOOSOOOOOOOOOOOOSoOOoOo 
SOOOCCSCSOSCOCCCOSOOSOOOOCO OOOO OOOOOOOOOOoOO 


Be Se Ge Be Se Ge Se Ge Be Ge Ge Ge Se Se Ge Ge Ge Ge Se Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge 


= § BOODOOO0O00000 OOOO OOO O09. 0009 09 09 09 09 09 09 09 SII NN NSIS NINN IIA AA AAA AAA OUI 
FW OOONOA UE WIN -2# DO ODNAUE WN 9 OD NOAU EWN O OD NAUESWN (OOD NAUE WOO 


0000 inputs: ae 
0000 ap - address of file control block. must be preserved by inline code 
0000 r0 - Line option 
0000 rl = page option | 
0000 r2 - address of skip option 
0006 r3 - cancel control o (0=off) ; 
0000 r4 - address of the compiled format (for put edit) or 0 (for put List) 
0000 «1 (sp) - address of inline code for ist element to put 
0000 1 outputs: ae 
441 ! ap - estrone of the file control block. must be preserved by inline 
code 
464 1 r11 = address of stream block. must be preserved by inline code | 
000 1 ; r0-r10 are available for use by inline code 
0000 1 side effects: a of : 
0000. = rO-r6 are destroyed. the file is opened with the default attributes 
0000 (1 stream and output. 
0000 «1 
00 1 aoe 
3 1 
: pli$putfile_ré:: 
$00 114 ; allocate a stream block 
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PLISPUTF ILE 16-SEP-1984 02:23:5 AX/VMS Macro V04-00 Page 
5 tO08 aes 99:93:38 PLIRTL.SRCIJPLIPUTFIL.MAR; 1 
115 ; 
6 BED 8 p 138 popt r6 ;save return address 
5E eens. es ’ + & 0 11 subl #str_c_len,sp allocate space for stream block 
8 E 3 OOA 118 movl sp,rtl ;set address of stream block 
14 AB. 0CO4 CB E 000 119 movab str_l_stack(r11),str \_fld_end(r11) ;set end of field 
2 AB 0 7D 001 120 movq r0,str_b_field+10(riT)” ;save Line and page 
A AB 2 7D 001 121 movq r2,str_b_field+18(r11) ;save skip and cancel control o 
2AB 56 00 Bole : ¢ mov l r6,str_b_field+26(r11) ;save return address 
Baie } : ; initialize format stack and pointer 
08 AB «5D OCO#0 BO TE 1 § mov fp,str_l_parent(r11) ;set default parent pointer 
OC AB 02 «(CA 3 1 bicl  #str_miedit,str_l_fs(r11) ;assume list directed 
04 AB 54 DO 00 128 mov r4,str_l_fp(riiy sset address of format pointer 
04 13 0028 \¢ beql 5$ -if eql, List directed 
0c AB 02GB 00¢0 130 bisl M#str_m_edit,str_l_fs(r11) ;set edit directed 
55 0C046 CB 9E 0031 131 5$ movab str_T_Stack(r11),r5 sget address of stack pointer 
65 54 00 Oo 6 13 mov r4,Cr scopy fp to format stack 
68 55 00 0039 1 mov l r5,str_l_sp(r11) istore sp 
003C 134; 
Ope 13? ; open file if needed 
1€ OC AC 01 EO O003C 139 bbs #atr_v_opened, fcb_l_attr(ap),10$ ;if file open, cont 
00000820 8F DD 0041 138 pushl #<atr_m_stream+atr_m_output> ;request stream and output 
5C DD 0047 139 pushl os set fcb 
00000000'GF 02 FB 0049 £140 calls #2,g*pli$open ;open the file 
OA OC AC ' & 0028 141 bbs #atr_v_opened,fcb_l_attr(ap),10$ ;if file open, cont 
50 00000000'°8F p00 0055 16 movl #pli$_open,r sset open failure 
00B6 31 OO05C 14 brw fail gand fail 
OOSF 144 ; ; 
Oper 132 3 check file attributes 
OA OC AC 03 €3 005F 147 fos: bbcs #atr v_recur,fcb l_attr(ap),15$ ;if recursive i/o 
50 00000000°8F 00 0064 148 mov l #pli$_frecursio,r sset illegal recursive i/o 
A? 31 0068 149 brw ai sand fail” 
6D O1AE CC 9E 444 150 15$: movab fcb_l_condit(ap),(fp) ;set condition handler address 
OA OC AC O05 £0 007 151 bbs #atr_v_output,fcb_l_attr(ap),20$ ;if output, cont 
50 00000000'8F 00 0078 13 mov | #pli$_notout,r0 set not output file 
oo) a eS brw fail jand fail 
OA OC AC oe EO 0082 154 20$: bbs #atr_v_stream,fcb_l_attr(ap),30$ ;if stream, cont 
50 00000000' 8F p9 0087 155 mov lL #pli$_notstream,r ;set not stream file 
0084 1 OO8E 156 brw fail zand fa 
0091 157; 
0081 138 3; allocate buffer if necessary 
14 AC 05 0091 160 $08: tstl  fcb_l_buf(ap) sbuffer already allocated? 
37 = 12 «20094~—Ss«161 bneq 50$ ce take sif neq, then yes, cont 
7E 2A AC 3C 0096 166 movzwl fcb_w_linesize(ap),-(sp) ;push size to allocate 
0084 CC 6€ 88 QO9A =616 movw (sp) ,<fcb_b rab+rab$w rsz>(ap) ;set it in rab ‘ 
0080 cC 00 OO9F 164 movb #rab$c_seq,<fcb_b_rabtrab$b_rac>(ap) ;set for seql puts in rab 
5E DD QOAS' 165 pushl sp push address of temp 
04 AE ODF OOA6 166 pushal 4(sp) spush address of size 
00000000 ' GF Fe OAD = 167 calls #6 gt ibSget_va get buffer 
A E 06 168 blbs r0,40$ sif lbs, continue 
50 00000000'8F g° 108 1 mov l #pli$_novirmem,r0 sset no virt. mem. 
1 ee 170 brw fail sand fail 
51 8EDO O0BD 171 40$: popl ri sget addr of buf 
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movl 
movl 
movl 

; process page, 


50s: insv 


53$: 


55$: 
60$: 


70$: 


i om dt 4 0¢ 4533 AX/VMS Macro V04-00 
6-SEP=1984 11:59: PLIRTL.SRCJPLIPUTFIL.MAR; 1 
ri,fcbl 


* =put tae) sstore ge! in feb 
ri,fcb_l buf _pt( ae? init pt 
r1,<fcB_B_rab+rab$l_rbf>(ap) sstore in rab 
Line, and skip options 


sete b_field+22>(r11),#rab$v_cco, 


Page 


-;set cco in rop 


<¥cB_b_rab+rab$l rop>(ap)~ ; 

Geis b_Field+14>(r1T) was page specified? 
60$ ~ fe eg f then no, cont 
#atr_v =print. feb_l _attr(ap), 55$ ;if print ok 
oi i$S_notprint,r0 ~ sset not print file 

1 ‘ aay fail 

p utpa © a pu 
g r_b_ field erin, ri iwas vine Specified? 

6s sif e9t- then no 
#atr_v_print, 7 l aattr(ap), 53$ iit not print, error 
g-pl T$Spu tline process the Line option 
<str_b_fie (d+185¢r11), r2° yes Me specified? 
100$7 if no, cont 
(r2),r2 : iget Ti to skip 
g*pli$$putskip_r2 process the skips 


: return to inline code 


1008: bicl 


mp 


bicw 
clrl 
mov l 
pushl 
pushl 
pushl 
calls 
ret 


fail: 


end 


#atr_m_recur,fcb_l attr(ap) sclr. recursion flag 
astr + “tield+26(F1T) ;*return 


#iaatr_v_recur,fcb_l -attr(ap); reset recursion bit 
zremove any handler 
iset error in fcb 


p) 
70. tcb_ l_error(ap) 
set fcb address 


rb ‘ :set error code | 

#pli$_error :set error condition. 

#3,Q9*pli$io_error zsignal error condition 
sreturn 
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PLISPUTF ILE 16-SEP-1984 02:23:5 AX/VMS Macro v04-00 Page 6. 
Psect synopsis ae 94:5 :38 EPLIRTL. SRCIPL 1PU TFIL.MAR; 1 . () 
$ewweweecceecccce + 
! ;_Psect synopsis : 
PSECT name Al Location PSECT No. Attributes 
ABS. 44 008 0 00 $3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD ag NOVEC BYTE 
$ Beosey 3080: 01 4-3 NOPIC USR CON ABS LCL NOSHR EXE RD NOVEC BYTE 
PLISCODE 00131 02 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG 


$e wero nmeneecnrcacenn eeeeceon + 


H Performance indicators : 


Phase Page faults CPU Time Elapsed Time 
Initialization 10 OO 0 300-06 00:00:00.49 
Command processing 72 00:00:00.5 00:00:02.05 

Pass 197 00:00:07.00 00:00:14.17 
Symbol table sort 9 00:00:00.76 00:00:01.62 
Pass 2 4 00:00:01.24 O82 B0 2 Be 8 
Symbol table output 00:00:00.08 00:00:00.2 

Psect synopsis output 2 00:00:00.02 00:00:00.04 

Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 332 00:00:09.70 00:00:21.47 


The working set Limit was 900 pages. 

38281 bytes (75 pages) of virtual memory were used to buf ferne intermediate code. 

There were 40 pages of symbol table space allocated to 709 non-local and 12 Local symbols. 
210 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

17 pages of virtual memory were used” to define 15 macros. 


= ¢ ewww owewmeeeoeeeeoeecceecs + 
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Macro Library name Macros defined 
~$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 5 
“$255$DUA28: CSYSLIBISTARLET. MLB; 2 7 

TOTALS (all Libraries) 12 


741 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIPUTFIL/OBJ=OBJ$:PLIPUTFIL MSRC$:PLIPUTFIL/UPDATE=(ENH$:PLIPUTFIL)+LIB$:PLIRTM 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


030 


